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1700 MACRO ASSEMBLEI 

The Macro Assembler provides a symbolic machine language especial I 
well suited for process control applications as well as for standard 
lenerai purpose programming. The powerful macro capability feature 
:eatly expedites program development and offers a distinct advantag 
ir process control applications. Running under control of the 1700 
Operating System, the Macro Assembler offers the following features: 


Paper tape input 


Relocatable program, data, and common storage areas 
Absolute loading location option 


Free field source statement format 


Symbolic machine instructions 

Pseudo instructions, including conditional assembly and variable 
field definitions 


Assembly error diagnostics 

Assembly output listing on paper tape or typewriter 
Binary output on paper tape 

Library macros and user-developed macro capabilities 
Relative address optimization 


1700 MASS STORE FORTRAN 

Mass Store FORTRAN is a super set of USAS I Basic FORTRAN with 
mass storage input/output features. Running under control of the 
1700 Operating System, emphasis is on the compilation of efficient 
and compact object code. 



1 



MACRO ASSEMBLER 


Three standard options determine the type of output from the assembler. 
All three are automatically selected if no OPT pseudo instruction is 
encountered before the first NAM. 

Option Meaning 

L List output on standard list unit 

P Punch binary output on standard punch unit 

X Load and go output loaded on a mass storage device 

for subsequent execution 

IVl Macro expansion 

Instruction Format 

label opcode address remark 

label Blank or symbolic, 1 to 6 characters, beginning with 

a letter (excess ignored). An asterisk in column 1 
identifies a remark. May be terminated by a tab. 

opcode Follows one or more blanks after the label or tab. 

If label is blank, opcode may begin in column 2. 

May be terminated by a tab. 

address Follows one or more blanks after the opcode or a tab. 

For machine instructions, may contain an address 
expression or when storage reference instructions are 
used, the address field may contain an address ex¬ 
pression terminated by a comma and followed by Q, 

I, or B to indicate indexing. See Pseudo instructions 
for their address field formats. Address expression; a 
single operand terminated by a tab, blank or comma, 
or a string of operands joined by the arithmetic 
operators: 

+ addition 
subtraction 
* multiplication 
/ division (integer) 

I always refers to the storage index (core location FF] 5 ). 
Indirect addresses are enclosed in parentheses. 

As an operand^* signifies the current value of th« 
location counter. The address expression is eval 
mod 2 ^^-l . 

remark After the first blank or a tab in the address field, 

contents of the statement are considered a comment. 

On paper tape, the instruction must be terminated by 
by a carriage return. 
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Message 

MACRO ASSEMBLER ERROR MESSAGE! 

Meaning 


Doubly defined symbol 


Undefined symbol 

* EX 

Illegal expression 

OP 

Illegal operation code 

RL 

Illegal relocation 

O 

i 

Numeric operand overflow 

SQ 

Sequence error 

MD 

Error in macro definition 

MC 

Error in macro instruction 

PP 

Error in previous pass (compilation) 

A table 

SYMBOL TABLI 

containing the location symbols, locations, and relocation 

values is 

printed at the end of pass 3 if the L option is selected. 

Columns 

not specified below contain spaces. 

Column 

Contents 

1-6 

symbol name 

9-12 

location 

13 

relocation of location 

15-20 

symbol name 

, 23-26 

location 

27 

relocation of location 

29-34 

symbol name 

37-40 

location 

• 41 

relocation of location 

• 
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ASSEMBLY LISTING 


The assembly list consists of 18 columns of descriptive information 
related to the source statement, followed by a maximum of 80 columns 
listing the source statement. 

Column 


1-3 

Line number; truncated to 3 decimal 

4 

Period 

5 

Space 

6 

Relocation designator for location 


P program relocation 

D data relocation 

7-10 

Location in hexadecimal 

11 

Space 

12-15 

Machine word in hexadecimal 

16-17 

Relocation designator for word 


P program relocation 
-P negative program relocation 
C common relocation 
-C negative common relocation 
D data relocation 
-D negative data relocation 
X external 
blank absolute 

18 Space 

19-72 Input source statement 
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MACHINE INSTRUCTIONS 
Storage Reference 



t 

Addressing 

• 

* 

blank 

+ 

One-word relative—O q max. value ±7F'|^ 
Two-word relative or constant addressing 
One-word absolute—O q max. value FF ](5 

Two-word absolute 

e 

Jq is the 

value of the address expression plus indexing 

LDAt 

®a 

(ea)-A 

LDQt 

®a 


ADDt 

®a 

(eJ+(A)_A 

SUBt 

®a 

(A) - (e J A 

ADQt 

®a 

(Q) + (e^) _ Q 

ANDt 


(A)A (eJ_A 

EORt 

®a 

(A) V(eJ^A 

MU It 

®a 

(A) * (ej _ QA 

DVIt 

ea 

(QA)/(ea)-.A 



remainder Q 


In the above instructions, the effective address may 
be replaced by an address constant: 

= N iddddd decimal or = N ±$hhhh hexadecimal 

= ACC cc .= two alphanumeric characters to be 
converted to ASCII 

= Xbq Oq = address expression; if parenthesized will 
be indirect (sign bit set) 
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STAt 


STQt (Q) _ 

JMPt Jump to 

RTJt Gq Return jump to 

RAOt (e) + 1 ^ 

SPAt Gg (A) Parity A 

Register Reference 

A value e^ is evaluated 2^5-1 and truncated to 8 bits 

SLS Gj Halt if STOP switch ON 

P INP e^ Word from device specified by Q — A; next 

instruction: 

P + 1 if device sends reply 
P + 1 + A if device sends reject 
P + A if internal reject 

P OUT e^^ Word from A to device specified by Q; next 

instruction: 

P + 1 if device sends reply 
P + 1 + A if device sends reject 
P + A if Internal reject 


ENA 

®d 

sign extended 

ENQ 

®d 

e — Ay_Q, sign extended 

INA 

®d 

(A) + e^ A, sign extended 


INQ e^ (Q) + e^-H. Q, sign extended 
NOP e^ No operation 
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The following instrucHons ore legal only if program protection switch 
is off or if the instructions are protected. 


Enable interrupt after execution of next instructior 


IIN 

SPB 

CPB 

EX! 


e^ Inhibit interrupt 

e^ Set program protect bit in Q 

e^ Clear program protect bit in Q 

e^ Exit from interrupt state; e^ should be a value frorr 
2nd column of table below. 


Interrupt State Definition* 



Volue of A 


Interrupt 

to 

Location of 

state] 0 

exit state] ^ 

• 

return address]^ 

Interrupt in 

basic computer 


00 

00 

0100 

01 

04 

0104. 


Location of 
first instructior 
after interrupt 
occurs] ^ 


0101 

0105 


Interrupt added by 1705 interrupt/Data Channel option 



02 

08 

0108 

0109 

03 

OC 

01 OC 

01OD 

04 

10 

0110 

0111 

05 

14 

0114 

0115 

06 

18 

0118 

0119 

07 

1C 

one 

01 ID 

08 

20 

0120 

0121 

09 

24 

0124 

0125 

10 

28 

0128 

0129 

11 

2C 

012C 

012D 

12 

30 

0130 

0131 

13 

34 

0134 

0135 

14 

38 

0138 

0139 

15 

3C 

013C 

013D 
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Shift 



e|^ is value of c 
truncated to 31 

address expression; it will be evaluated mod 215-1 

IQ maximum. 

ARS 

®k 

Shift (A) right end-off ej^ places, sign extended 

QR5 

®k 

Shift (Q) right end-off e|^ places, sign extended 

LRS 

®k 

Shift (QA) right end-off e|^ places, sign extended 

ALS 

®k 

Shift (A) left end-around ej^ places 

QLS 

®k 

Shift (Q) left end-around places 

LLS 

®k 

Shift (QA) left end-around ej^ places 


Skip if Condition Exists 

65 is value of address expression; it will be evaluated mod 215-1 and 
error flagged if result is greater than F 15 . If the skip condition is met, 
the next instruction is P + 1 + e^; otherwise the next instruction is 
P+1. 


SAZ 

es 

(A) - + 0 


SAN 

Ss 

(A)/ + 0 


SAP 

es 

(A) = + 


SAM 

es 

(A) = - 


SQZ 

es 

(Q) = + 0 


SQN 

es 

(Q)/+0 


SQP 

es 

(Q) = + 


SQM 

es 

(Q) = “ 


SWS 

es 

Switch set . 


SWN 

es 

Switch not set 


SOV 

es 

Overflow on 


SNO 

es 

Overflow off 


SPE 

es 

Parity error 


SNP 

es 

No parity error 

n 

SPF 

es 

Program protect fault 


SNF 

es 

No program protect fault 
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Inter-Registei 

_The destination register expression may be any combination of A, 

and M separated by commas, or zero. 

^ SET 

®r 

Ones — register (s) 

CLR 

er 

Zeros register(s) 

TRA 

er 

(A) register(s) 

TRM 

er 

(M) — register(s) 

TRQ 

^r 

(Q) register(s) 

TRB 

er 

(Q) V (M) register(s) 

TCA 

er 

(A) register(s) 

TCM 

er 

(M) — register (s) 

TCQ 

er 

(Q) register(s) 

TCB 

er 

(Q) V (M) — register(s) 

AAM 

er 

(A) + (M) register{s) 

AAQ 

er 

(A) + (Q) — register (s) 

AAB 

er 

(A) + (Q) + (M) register(s) 

EAM 

®r 

(A) V (M) — register(s) 

EAQ 

er 

(A) V (Q) — register{s) 

EAB 

®r 

(A) V (Q) V (M) — register(s) 

LAM 

er 

( (A) A (M) ) — register(s) 

LAQ 

Sr 

( (A) A (Q) ) ^ register(s) 

» LAB 

er 

( (A) A ( (Q) V (M) ) register(s) 

CAM 

er 

( (A) A (M) ) — register(s) 


®r 

( (A) A (Q) ) -^ register(s) 


er 

( (A) A ( (Q) V (M) ) ) ^ register(s) 
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PSEUDO INSTRUCTIONS 


NAMs 


END 5 


ENT s,,S2, . . .,Sn 

.V 

. 


Identify source language sub¬ 
program; symbolic name s is 
optional 

Last statement in source languag' 
subprogram; optional s specifies 
initial entry point of program 

Symbolic entry point names with¬ 
in subprogram 

Symbolic entry point names in 
external subprograms 

Symbolic relative entry point 
names in external subprograms 


BSS (e^),S 2 (e 2 )/ • • • (e^) Storage segment allocation: 

Sj = symbolic name, ej = number of 
words in block 

BZS 5 ^ (e^),S 2 (e 2 ), ■ • ■ Storage segment allocation set to 

zero: sj = segment name, ej = 
number of words in block 

COM 5 ^ (e^),S 2 (e 2 )/ • • • (®n) Common storage allocation: 

S| = symbolic name, ej = number 
of words in block 

DAT s^ (e^), 52 ( 62 ), . . • Data common storage allocation: 

Sj symbolic name, ej number of 
words in block 
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ADC e-j, 02, . . . ,e 


IDC* ,62, . . . 


ALF n, message 


NUM ^,k2, . . wk^ 


DEC k^, k2. 


. ,k 


^FD n-i/v^ ,m2n2/v2/’ 


Address constant definitions ej, 
stored beginning ins; (e|) indicate 
indirect addressing 

Address constant definitions Oj 
relative to address counter, stored 
beginning in s; no indirect 
addressing 

Message definition, stored be¬ 
ginning in s, two eight-bit char¬ 
acters per word; n is an unsigned 
integer specifying number of 
words in message, or a non-integer 
specifying end of message 

Typewriter characters may be ALF 
input: 

:R Carriage return (D-j^) 

:T Horizontal tab (9]^) 

:L Line feed 

:B Bell 

:F Top of form 

:V Vertical tab 

Integer constant specification, 
stored beginning in s 

ki 

$hhhh-|^ hhhh FFFF 
ddddd^o ddddd < 32767 

Decimal constant specification, 
stored beginning in s 

k| = fD±dB±b,f*10^*2‘^<2‘'5-l 

,m„n„/v„ Variable field definition 
' n rv n 


(‘^16) 

(7.6) 
(^16) 

(6.6) 
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EQU (e^ 

ORG e 

ORG* 

s IFA e-j 


EIF s 
OPT 



Mode 

N 

A 

X 

Numeric constant 

ASCII character 

Expression 


Dj Bit count 

Vj Value 



),S 2 (e 2 )/ • • . i’Sn(®n) Equate each symbolic name sj to 
the expression ej, evaluated 
modulo 2 ^^-] 

Sets location counter to address 
expression e, evaluated 2 ^^-l 

Returns location counter to setting 
before first ORG e pseudo 
instruction 

^62 Skip to EIF, if c is not true 


c 

Condition 

EQ 

ei = 02 

NE 

e,/e 2 

GT 

ei< 02 

LT 

ei > 02 


Terminate effect of IFA or IFC 

Enter assembler options from 
typewriter 
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MON 

NLS 
LST 
SPC e 


L List output 

P Punch output 

X Execute output 

M List macros 

A Return control to operatii 

system 

Return control to operating systet 
after last assembler source progrc 

Do not list output 
List output (after NLS) 

Skip e absolute spaces between 
output listing lines 


EJT 


Eject page 
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MACROS 


Definition 


s MAC P^,P 2 , . • ■ /P^ 

Identify macro definition named ^ 
with one- or two-character 
parameters P],P 2 . • • wP^ 

EMC 

End macro definition 

LOC s^,S2, 

Macro local symbol definition, one 
or two characters each 

s IFC a^,c,a 2 

Skip to pseudo Instruction EIF, 
in Macro definition, if c is not 


true 


c 

Condition 

. EQ 

NE 

a, =02 

V°2 


Macro Instruction 

s n P']/P 2 / • • • ^Pp Assemble macro instruction be¬ 

ginning in location s with actual 
parameters py P 2 , • • ■ /Pj^ 


Macro Library 

AAAq..EMC 

MAC2. . .EMC. . . ENDMAC 


Assemble macro definitions MAC], 
MAC 2 . . into assembler library 
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MASS STORE FORTRAN 
FORTRAN ELEMENTS 


Constants 

nin2. . .n^ 

1 m 5 

Examples 

2 

247 

31415 

Hexadecimal 

$nin2. . .n^ 

$1 


VI 

£ 

VI 

$AB1 



$FFFF 

Real 

n,n 2 . ..n^±Eexp,o 

1 < m ^7 

3.14 

+.0749 


314E-05 

-.3E01 


SUBSCRIPTS 

For DIMENSION A(L,M,N), where L, M, and N are integer consfants 
the location of A(i,j,k) with respect to the first element of A is 

A+ (i - 1 + L(i - 1 + M(l< - 1) ) )*E 

For DIMENSION A(L,M) the location of A(i,j) is 

A+(i -1 + L([ -1))*E 

E Is the number of words occupied by each element of A. 

Form Examples 

(c*l±d) (l,J) 

(lid) (2,J + 3,2*K + 1) 

(c*l) (14) 

(I) (K,J + 5) 

(c) 



c and d are unsigned Integer constants; l,J,K are simple integer 
variables. 
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Variables 


Form 

Examples 

Simple integer 

a^a2. . 

.a 

m 

1 < m :< 6 

N 

I2S04 

M58 



1,J,K,L,M or N 



°2"°6 

alphanumeric 


Simple real 

aia2* • 

•°m 

1 < m 6 

VECTOR 

SPOILS 

A65 



alphabetic other 

than 

or N 



°2-°6 

alphanumeric 


Subscripted integer 

°1°2- ■ 

1 < m :£ 6 

NERVE (6,8,6) 

LO(J) 

JEL(I,M,3) 



l,J,K,L,M,N 



°2“'°6 

alphanumeric 


Subscripted real 

°1°2*- 

1 < m < 6 

TIME(J,K,L) 

QL(1) 

ROGER(2,2,1) 



alphabetic other 
than 

N 



°2"°6 

alphanumeric 



Variables defined by type declarations begin with any letters. 




EXPRESSION 
Operatoi 

Arithmetic Relational Logical 

Addition .EQ. Equal to .AND. Conjunctiv 

* - Subtraction .NE. Not equal to .OR. Disjunctiv 

* Multiplication .GT. Greater than .NOT. Negative 

, / Division .GE. Greater than or 

equal to 

** Exponentiation .LT. Less than 

.LE. Less than or equal to, 

Elements of Expressior 

Constants 

Variables 

Functions 

Arithmetic expression: Elements separated by arithmetic operators 

Relational expression: Arithmetic expressions separated by relatione 
operators 

Logical expression: Relational expressions separated by logical 

operators 

Example 

♦A A .GT. 16, 

3.14159 (D-Q(l) * Z).LE. 3.14159 

+ 16.8946 (B+C) .LT. (A-D) .OR.l.E,Q.O 

(A-B(l,J+2)) B*C(J+4.1/(Z(J,3*K) )*SIN(V) 
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FORTRAN STATEMENTS 


Subprogram Statements 

BLOCK DATA 


SUBROUTINE name (p^,P 2 / • • • /Pp) 
FUNCTION name (P]fP2/ • • • /Pn) 
RELATIVE namei,name2, . • • ^name^ 
EXTERNAL name^ ,name 2 / • . • ,name 
CALL name (p^,P 2 / • • • /P^) 


n 



RETURN 

END 


Data Declaration and Storage Allocation 

REAL list 
INTEGER list 
DIMENSION vi,V2, • • * 

C OMMON/name/1 ist 
COMMON list 

EQUIVALENCE • • •) 

DATA listi/data, . . . Jist^y/data 

BYTE/SIGNED BYTE ), . . . .(an'*^n('n)(’"n="'n) ) 

a Variable or array name 

b Variable, array or subscripted (i) array element name; 
lj,kj,mj are integer constants; 

15 >k|S:mjS0 

k High order bit position of byte 
m Low order bit position of byte 


Replacement Statements 


a = arithmetic expression 
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Control Statements 


_ASSIGN n TO a 

i TO integer variable 
GO TO n 


GO TO (n-] ,n2, . • - integer variable 
IF(arithmetic expression) n-j ,02*03 
lF(logical expression) statement 


DO n i=mi ,m2,m3 
CONTINUE 
PAUSE n 
STOPn 

Input/Output 


READ (u,f)k 
READ (u)l< 

WRITE (u,f)l< 
WRITE (u)k 


OPEN a ,i,i,u,x 
READ (a(n),f)k 
READ (a(n) )k 
WRITE (a(n),f)k 
WRITE (a(n) )k 



Logical unit number 
Format specifier 
List 

File number 

Record size in sectors 

Maximum number of records in file 

Starting sector address; if omitted, assigned by compiler 
at load time 

Record number of mass storage file 
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END FILE u 
REWIND u 
BACKSPACE u 

u Logical unit number 


Format Specifications 

Conversion 


Ew.d 

Single precision floating point with exponent 

Fw.d 

Single precision floating point without exponent 

Iw 

Decimal integer 

$w 

Hexadecimal integer 

Aw 

Alphanumeric, partial words left justified 

Rw 

Alphanumeric, partial words right justified 

Editing 


wX 

Intra-line spacing 

wH 

Heading and labeling 

* * 

Heading and labeling 

/ 

Beginning of new record 


Standard Printer Carriage Control 


Character in 
first column 

0 

1 

other 


Action before 
printing 

single space 
page eject 
none 


Action after 
printing 

single space 
single space 
single space 
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LIBRARY FUNCTION 
Trigonometric and Exponentic 


SIN (x) 

Sine X radians 

Real to real 

Ptos (x) 

Cosine x radians 

Real to real 

AT AN (x) 

Arctangent X radians 

Real to real 

SQRT (x) 

Square root of x 

Real to real 

ALOG (x) 

Natural logarithm of x 

Real to real 

EXP (x) 

e to power x 

Real to real 



Arithmeti 

ABS (x) 

Absolute value 

Real to real 

lABS (1) 


Integer to integer 

FLOAT (i) 

Conversion 

Integer to integer 

IFIX (x) 


Real to integer 

(SIGN (1^,12) 

Sign of 12 times | ii | 

Integer to integer 

SIGN (xpX 2 ) 

Sign of X2 times | [ 

Real to real 


Input/Output Conditioi 

EOF (i) 

Test for end-of-file 
on unit i 

Integer to integer 

lOCK (i) 

Test for parity error 
on unit i 

Integer to integer 
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Machine Condition 


I FAULT (i) 


Check overflow, under¬ 
flow, divide fault 


Integer by integer 


MASKING FUNCTIONS 
NOT (a) Complement 

AND (a,b) Logical product 

OR (a,b) Inclusive OR 

FOR (a,b) Exclusive OR 


a b 

NOT(a) 

AND(a,b) 

OR(a,b) 

EOR(a,b) 

1 1 


] 


0 

1 0 

0 



1 

0 1 

1 


1 

1 

0 0 

1 

0 

0 

0 
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HOLLERITH TO ASCII CONVERSION 



Punch 

Char 

Hex 

Punch 

Char 

Hex 


No Punch 

Space 

20 

0-8-7 

@ 

40 


^11-3-2 

I 

21 

12-1 

A 

41 

i 

Ps-? 

" 

22 

12-2 

B 

42 

m 

12-8-7 

§ 

23 

12-3 

C 

43 


CO 

1 

00 

\ 

$ 

24 

12-4 

D 

44 


b-8-5 

% 

25 

12-5 

E 

45 

t 

8-2 

& 

26 

12-6 

F 

46 


8-4 

1 

27 

12-7 

G 

47 


0-8-4 

( 

28 

12-8 

H 

48 


12-8-4 

) 

29 

12-0 

I 

49 


11-8-4 

* 

2A 

11-1 

J 

4A 


12 

+ 

. 2B 

11-2 

K 

4B 


0-8-3 

1 

2C 

11-3 

L 

4C 


ii 

- 

2D 

11-4 

M 

4D 


12-8-3 


2E 

11-5 

N 

4E 


0-1 

/ 

2F 

11-6 

O 

4F 


0 

0 

30 

11-7 

P 

50 


1 

1 

31 

11-8 

Q 

51 


2 

2 

32 

11-9 

R 

52 


3 

3 

33 

0-2 

S 

53 


4 

4 

34 

0-3 

T 

54 


5 

5 

35 

0-4 

U 

55 


6 

6 

36 

0-5 

V 

56 

k 

7 

7 

37 

0-6 

w 

57 


8 

8 

38 

0-7 

X 

58 


9 

9 

39 

0-8 

Y 

59 


8-5 


3A 

0-9 

z 

5A 


11-8-6 

/ 

3B 

12-8-5 

[ 

5B 


12-8-6 

< 

3C 

0-8-2 

\ 

5C 


^8-3 

= 

3D 

11-8-5 

] 

5D 

i 

■ 8-6 

> 

3E 

11-7-8 

t 

5E 


^12-8-2 


3F 

0-8-6 


5F 
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FORTRAN LANGUAGE FORMAT 


Each line of a FORTRAN coding 
punched tape. 

form represents three fii 

Field 

Positions 

Statement Number 

1 -5 

Continuation 

6 

Statement 

7-72 

Identifi cation 

73-80 


Statements may be identified by an integer from 1 to 32767. If C 
appears in column 1, the remainder of the line is ignored but printed 
with the source listing as a comment. 

Statements are written from columns 7 to 72; blanks are ignored. A 
punch other than zero in column 6 identifies a line as a continuation 
of the statement from the preceding line. Up to five continuation 
lines are allowed. 


Comment Line 


C 1 1 - 71 character comment l{C^i 

! 1 > 


( 



Statement Line 


’:5 jbi ; i 

decimal i g I], -. 66 character statement I 
digits or, n i 1 ^-^| 

blanks 1| ! | 

^ .. 

( 



Continuation Line 


'n.i 1 1 

.. 

5 Jg 1 [1 - 66 character statement 1 

blanks ' continuation 

! kl ^ ■■■■ ! ! ■ 

: 



Termination Line 
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OPTIONS 

OPT P, U A, M, R, K, X 


OPT 


OPT statement allows the user to select options from the standard input 
The selected options may exist in three ways. 

^ 1 . L, X, P options assumed with omission of OPT card. 

OPT card with desired options after column 5. 


3. No options specified by OPT card. This permits options to be 
entered through the standard input comment device. 


OPT must be in character positions 2, 3, and 4 immediately preceded by a 
blank in column 1. Options must be preceded by a blank in column 5. The 
options may begin any column after column 5, 


Options: 


P Relocatable binary object program 

L Source program listing (contains the generated statement numbers) 

A Object code, listing on the list device 

M Condensed object code listing on the list device. Listing contains 
generated statement numbers and first word of object code generated 
by each statement. 

R Run-anywhere object code. This option allows a program in absolut( 
form to be placed anywhere in memory. 

K NSI Basic FORTRAN compatibility; integers occupy two 1700 com¬ 
puter words. 

X Relocatable binary object program placed on the load-and-go file. 
Disk or drum is used for load-and-go. 

Unrecognized parameters and blanks are ignored. 


MON 

MON statement returns control to the operating system. MON must be in 
columns 2, 3, and 4 preceded by a blank. The MON card is the last compile 
in the stack. 
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